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000000 TTTTTTTTTT SSSSSSSS PPPPPPPP 000000 rh) Wh GGGGGGGG LL UU UU 
000000 TTTTTTTTTT SSSSSSSS PPPPPPPP 000000 Wh WwW GGGGGGGG LL UU UU 

00 00 TT SS PP PP 00 00 WW WW GG LL UU UU 

00 00 TT ss PP PP 00 0O WW WW GG LL UU UU 

00 00 TT Ss eR PP 00 00 WW WW GG LL UU UU 

00 00 TT ss PP PP 00 00 WW WW GG LL UU UU 

00 00 TT SSSSSS PPPPPPPP 00 00 WW WW GG LL UU UU 

00 00 TT SSSSSS PPPPPPPP 00 00 WW WW GG LL UU UU 

00 00 TT SS PP 00 00 WW WW Ww GG GGGGGG LL UU UU 

00 00 TT SS PP 00 00 WW WW WW GG GGGGGG LL UU UU 

00 00 TT SS PP 00 00 WWWW WWWW GG GG LL UU UU nies 

00 00 TT SS PP 00 00 WWWWw WwWW GG GG LL UU UU sacha 
000000 TT SSSSSSSS PP 000000 WW Wh GGGGGG LLLLLLLLLL UUUUUUUUUU cunt 
000000 TT SSSSSSSS PP 000000 Wh) WW GGGGGG LLLLLLLLLL UUUUUUUUUU unee 

LL IIIIII SSSSSSSS 

iL IIIIII SSSSSSSS 

LL II Ss 

LL II SS 

LL I] SS 
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LL II SS 
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LLLLLLLLLL IIII11 SSSSSSSS 
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| OTSSPOWGLU - G_floating ** unsigned integer power r 16-SEP-1984 02:00:0 AX/VMS Macro V04-00 Page 1 
4 1 . ; eee orSEp- 1984 99:98:98 UMTHRTL. SRCIOTSPOWGLU.MAR: 1 . (1) | 
-TITLE OTSS$POWGLU = G_floating ** unsigned rosener poyer routine 

-IDENT §/1-001/ ; File: OTSPOWGLO.MAR Edit: SBL1001 


=MARBABARBARARARASAAAAALALAAALASAARALSAAS RASA SERARS ASAE ARRAS ESSE ARS AALS RRS AREAS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIE 
Lt IN ACCORDANCE WITH THE TERMS OF SUCH att i ae Ot 


D 


OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


° 


OOCCOCOOoOOCOOOOOOCooO 
COQOQOQCoooooQooooooooo 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


*® ® 
*® * 
*® ® 
“® * 
Boe ® 
-* * 
* ® 
:* ® 
:* ® 
7a ® 
:® TRANSFERRED. . 
-* * 
7* * 
-* i 
-% ® 
-* & 
-* ® 
® ® 
-* *® 
-* ® 
* * 
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1 
1 
1 
1 
1 
1 
1 
: 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
it $ ; CORPORATION. 
0000 2 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
4 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
| 4444 ; : PARRA AAALALZALALAAAASLALALSLALLEAEASASE AS ASESE RARER E RR RR RS ER RRA RRR ESAS ASR SASS SO 
0000 5 
0000 2 
0000 ¢ p++ } : 
sit ; ; FACILITY: Language support procedures, Mathematics division 
9000 3 : ABSTRACT: 
44 3 : This module contains OTSSPOWDLU, a procedure which raises a 
0000 «36: 
444 ; ; ENVIRONMENT: Runs at any access mode, AST Reentrant 
9000 3 : AUTHOR: Steven B. Lionel, CREATION DATE: 22-JUL-1981 
0000 41 : MODIFIED BY: 
0000 42 ; 
0000 45; 1-001 - Original. SBL 22-JUL-1981 
0000 44 3-- 


| 
| 
i 
| 
| 
G_floating value to an unsigned integer power. 
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G_floating ** unsigned integer power r 16-SEP-1984 02:00:0 AX/VMS Macro V04-00 Page 
CCARATIONS . weatlins ~3Ep= 1984 1iso8:18 EMTMRTE. saedorspouecu.MaR:1 29° (3) 
8 rk -SBTTL DECLARATIONS 
09 re ; LIBRARY MACRO CALLS: 
8 29 $SSDEF 3 System error codes 
0 1 SCHFDEF ; Define condition handler symbols. 
00 26 SSFDEF 3: Define stack frame symbols. 
B98 5 SPSLDEF ; Define program status longword 
000 54 3; symbols. 
0000 55 ; 
0090 2$ ; EXTERNAL DECLARATIONS: 
$60 25 -DSABL GBL 3; Force all external symbols to be declared 
0000 59 -EXTRN MTHSK_UNDEXP 3 Undefined exponentiation 
0000 60 -EXTRN MTHSK_FLOOVEMAT ; Floating overflow in Math Library 
0000 61 ~EXTRN MTHSK FLOUNDMAT ; Floating underflow in Math Library 
0000 6 EXTRN MTHSSSIGNAL : Math error routine 
0000 63 ; 
0000 64 ; MACROS: 
0000 65 ; 
0000 66 ; NONE 
0000 67 ; 
0000 68 ; EQUATED SYMBOLS: 
0000 69 ; 
0000 70 ; NONE 
0000 71; 
0000 Le; 3; OWN STORAGE: 
0000 73: 
0000 74; NONE 
0000 75 ; 
4444 6 ; PSECT DECLARATIONS: 
00000000 78 -PSECT _OTSSCODE PIC, USR, CON, REL, LCL, SHR, - 
444 0 EXE, RD, NOWRT, LONG 


+ 


I 1 


SIDE EFFECTS: 


May signal: 
at MTH$_FLOOVEMAT - floating overflow in Math Library 
MTH$_FLOUNDMAT - floating underflow in Math Library, only 
the caller has FU enabled. 
MTHS_UNDE XP - undefined exponentiation, if both base and 
exponent are zero. 


OTSSPOWGLU - G floating ** unsigned integer power r 16-SEP-1984 02:00: AX/VMS Macro V04-00 P 
1 1 OTSSPOWGLU G_ floating at unt lgned inte ets 96:98:98 UMTHRTL. SREJOTSPOWGLU.MAR: 1 ~ 3) 
p § sa -SBTTL OTSS$SPOWGLU - G_floating ** unsigned integer power routine 
0 4 FUNCTIONAL DESCRIPTION: | 
000 : Raise a G_floating value to an unsigned integer power givin 
508 ? ; a G_floating result. . ee ee 
0900 89 ; The result is given by: 
0900 31 ; base exponent result 
44 38 : any >0 product (base * 2**i) where i is each 
00 94 ; non-zero bit position in exponent 
0000 95 ; 
0000 96 ; >0 = 0 1.0 
0000 97 ; = 0 = 0 Undefined exponentation 
0000 98 ; <0 = 0 1.0 
0000 99 ; 
0000 100 ; 
0000 101 ; CALLING SEQUENCE: 
0000 10 : 
44 HS 3 result.wg.v = OTSSPOWGLU (base.rg.v, exponent.rlu.v) 
0000 105 : FORMAL PARAMETERS: 
0000 106 ; 
0000 107 
00000004 0000 108 base = 4 :; G_floating base. Note that this is passed by 
0000 109 ; immediate value in two argunent List positions, 
0000 110 ; which is a violation of the calling standard. 
44 FF ; This is allowed for language support procedures. 
0000000C st 11§ exponent = 12 ; Unsigned longword integer exponent 
0000 115 
0000 116 ; IMPLICIT INPUTS: 
OR 117 
0000 118 NONE 
0000 119 
0000 120 IMPLICIT OUTPUTS: 
0000 121 
0000 \$¢ NONE 
0000 1 
4 138 ROUTINE VALUE: 
09 : § The base raised to the exponent's power. 
00 1 § 
89 1 
0 130 
09 : 1 
000 138 
00 134 
3 1 
000 137 
0 138 


Ooooooooooooo 
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floating ** uns nte 6=-SEP-19 MTHRTL.SRCJOTSPOWGLU.MAR; 1 (3) 
-ENTRY OTSSPOWGLU, “M<R2,R3,R4> ; Entry point 


OTSSPOWGLU 
1-001 


i 
U 


£o 


- G fl 
OTSSPO 
o01c 


6D 6A'AF 9 OVAB aig! HANDLER, (FP) ; Translate exceptions to MTH$ errors 
040 8F 8B BISPSW #PSLSA_FU : Enable floating underflow detection 
08 Hite MOVG #1, : RO/R1 = initial result 
52 gt AC 5OFD MOVG base(AP), R2 3; R2/R3 = base 
54 C AC 08 MOVL exponent (AP) R4 3; R4 = exponent 
0 1 BNEQ BEGIN 3; Skip if not zero 
5 a TSTG fe : Is baSe also zero? 
2 1 BEQL UNDEF INED 3; If_so, error. Otherwise, answer is 
04 RET : With result of 1.0 
34 
; Do the first iteration here so that we can clear the high-order exponent 
3 Hoe Afterwards, that bit will be zero so we don't have to worry about 
BEGIN ; 
0454 O00 €E5 BBCC #0, R4, 10$ : Skip initial multiply 
0 52 S5OFD MOVG R : New partial result 
54 54 FF BF 9C 10$: ROTL #-i, R4, R4 3 bet, Mey bee exponent bit and clear 
a2 BEQL DONE : Is-that all? If so, we're done. 


+ 


; Each time we get here we know that there's at least one more exponent bit 
left, so square our current power of the base. 


LOOP: 
52 52 44FD MULG2 R2, R2 3 Square base. This may overflow or 
; underflow. In either case, the 
; final result would also overflow 
; or underflow. Our exception 
; handler will catch these cases. 
04 54 €9 BLBC R4, NEXT_BIT ; See if this exponent bit is on. 
: If so, multiply base by product. 
50 52 44FD MULG2 R2, RO ; This too ety overflow or underflow, 
weet Ott ; which will be caught by the handler. 
54 54 FF BF 78 “ASHL = #=1, R4, RS ; Get next bit of exponent. 
| Be BNEQ LOOP ; Keep going if not all done. 
DONE : , 
04 RET ; Return with answer in RO/R1. 


3+ 
3; Undefined exponentation error - 0**0 


a 
e 


UNDEF INED: 


De De ne ee ne oe eo oe ne ewe ww ol ole lololelelololelololelolelolelelelolo bl olelalololo) 
BPP EEE EEE ESE PWN ANID PONPINININPINIPINININIDY) 2 2 OOOO OM MK COOOOCOCO Oo 
WOO OO 000000 09 09 09 09 09 09 09 SII NN NN NNN PA AAAAAARAMMMMMIMIUINI I EEE EEE EEA OF 
MEWS OD NAME WIN 3S OO NAU EWN OOD NAU EWN CO OO NAME WN OO OODNOUS WMO” | 


t 
L 
9 
C 
E 
E 
F 
F 
F 
F 
F 
F 
F 
F 
F 
3 
7 
C 
C 
E 
E 
E 
E 
E 
E 
5 
9 
9 
0 
0 
1 
1 
1 
1 
1 
1 
1 
5 
9 
B 


ek ke ad td od ot ot = — = = 4) = —) —) 3 2 ss SS = 8 SS SS SS SS 
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7E OO'B8F QA MOVZBL #MTHSK_UNDEXP, -(SP) ; Indicate undefined exponentiation. 
50 01 OF 79 $ ASHQ #15, #T, R ; RO/R1 = reserved floating operand 
15 #11 0 BRB SIGNAL_ERROR 


searing Ntsc esata 4 
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1 1 OTSSPOWGLU : G. floating et unsigned inte “SE =}98¢ $F 98:98 EMTHRTL . SREJOTSPOWGLU.MAR; 1 ssh (3) 
048 3¢ 
578 ; EXC_HANDLER unwinds here if we got a floating overflow. 
48 " 
046 OVERFLOW: 


00° 8F 
50 6001—sOF 
08 


~~ IO 
oP, 


; Float 
#15, #7, R ; RO/R1 = reserved floating operand 
BRB SIGNAL_ERROR : 


+ 


EXC_HANDLER unwinds here if we got a ‘hooting underflow. 
If our caller enabled FU, then signal FLOUNDMAT, with a result of zero. 
Otherwise quietly return zero. 


UNDERF LOW: 
RO ;_Initial result 
BBC #PSLSV_FU, SFSW_SAVE_PSW(FP), DONE 3; Just return if 


2 ¢ W. 
MOVZBL #MTHSK_FLOUNDMAT, -(SP) ; Floating underflow in Math Library 
BRB SIGNAL ERROR 


50 
E404 AD 06 €1 
7E OO'SF 9A 


s¢ 
g signet a MTH$ error whose code has already been pushed on the stack. 
; RO/R1 has either a reserved operand or a zero, depending on the 


3 exception type. 


SIGNAL_ERROR: 


poole leolelolol ol elelelolol ole olelololololololeolol a! 
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MOOCOCOCCOCOCOCCON | NUIWMWMUIUIUIUIVIVIs “FO 
WIWAARIDINPIPINPYNINPININID 2 2 OO SS SDOODOOOCOOCOCOOOWOWO 
MO OODNOUS WR) $0 OONAOU EW) O OO NOUS WR" OO OOO 


6D D4 CLRL (FP) ; Cancel our condition handler 
00000000'GF 01 FB CALLS #1, G*MTHSS$SIGNAL ; convert to 32-bit condition code 
0069 ; and signal a MTH$ error. Omit — 
0069 ; second argument to show that this 
0069 : is a CALL entry point. ; 
04 0069 RET ; Return to caller with result in 
pare ; RO/R1 


MOVZBL #MTHSK_FLOOVEMAT, (SP) ating overflow in Math Library 
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0484 8F 
04C4 8F 
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50 0918 


51 
FC A041 = BG 


51 
FC A041 = BS: 


50 


oo 
nn 


00 
AF 
09 
60 
AF 


01 


T 


0000 


ow -—-oO-oT°°o— 
SO Wew  OOon 


- of9S 
— mo 


_=J 
o 


wn 
wo 


o-=— 
oOo 
PAGOSA 
>>>>rrr>,> 


DOooooooooooooooooooooo°ooo 


COOOOCCOCOCOOOCOCOOOOOOOOCSoO 
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weLU = q | 
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; sexe HANDLER = This condition handler gets control if we got an exception 
: while performing the eupeneny of ian If it is a floatin 

; then continue execution at OVERFLOW, to cause MTHS. FLOOVEMAT to be 

: signalled. Similarly, continue at UNDERFLOW if an underflow was seen. 
: Otherwise resignal. 
E 


XC_HANDLER: 
eWORD “M<> ; Entry point 
MOVL CHFSL_MCHARGLST(AP), RO ; Get mechanism arguments List 
TSTL CHFSL-MCH_DEPTH(RO) 3 At depth zero? 
BNEQ RESIGRAL : if not, resignal 
MOVL CHFSL_SIGARGLST(AP), RO ; Get signal arguments List 
MOVL CHFSL-SIG_NAME(RO), Pi ; Get signal name 
CMPW Ri, #SS$_FLTOVF_F : Overflow fault? 
BEQL  GOfO_OVERFLOW : If so, continue at OVERFLOW 
CMPW Ri, ASS$_FLTUND_F 3 Under flow fault? 
ae GOTO_UNDERFLOW ~ : If 50, continue at UNDERFLOW 
MOVZWL #SS$_RESIGNAL, RO ; Resignal exception 
RET , Return to VMS exception dispatcher 
GOTO_OVERFLOW: 
MOVL ore SIG_ARGS(RO), R1 Get number of signal arguments 
MOVAL B*OVERFLOO, -4(RO)ER1) Move address of OVERFLOW routine 


to PC in signal argument List 
Continue execution 


BRB CONTINUE 
GOTO_UNDERF LOW: 

MOVL  CHFS$L_SIG_ARGS(RO) 
MOVAL B*UNDERFLOW, SROs ERT] 
BRB CONTINUE 


CONTINUE: 
nove #SS$_CONTINUE, RO 


Get number of signal arguments 
Move operess of UNDERFLOW routine 
to PC in signal argument List 
Continue execution 


ee 
Sete Ge Be 


Continue at PC in Signet list 
Return to VMS exception dispatcher 


SENSIS DD ODO DOO. TUT UU BS Be BB BB BEB PII 
MEW O OONAUES WN O OONAU EWA CO OONAUS WA) OODONOUSE 
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- END End of module OTS$POWGLU 


T! 


sii 


sot table 
2 MCHARGLST 


CHF SL S1G_“NAME 
CONTINUE ~ 

OOM socer 
EXPONENT 

GOTO_OVv VERF LOW 
GOTO. “UNDERFLOW 
RTHSSSIGNAL 


Initialization 
sonneue processing 


Syabol table sort 
Pass 2 

Symbol table output 

Psect synopsis output 


Cross-reference output 
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ay 7 4: $8 % ERTARTL. St JOTSPOWGLU.MAR: 1 . (4) | 
Qf R 02 
0 
0 4 
OOO00AS R 0 
900 cAR OO 
000 be 
S005 
9C R 
Q000002E R 
ekkkeeee x 0 
eekkkene x 00 
eeekeeee x 0 
tereeeee x be 
00000039 R ¢ 
00000000 RG 0 
00000048 R 02 
00000040 
00000006 
00000088 R 02 
00000004 
00000060 R 02 
00000001 
00000484 
000004C4 
00000918 
00000041 R 02 
00000055 R 02 
en + 
H Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 <( 0 ¢ 0.) NOPIC USR CON’ ABS coe NOEXE NORD eer NOVEC BYTE 


~ 
4 
o 
wv 
-_ 
o 
= 
n” 
xz» 


0. 
00000000 ¢ Q. 1 & Re 
Q00000A9 (¢ 169. ek 203 PIC USR CON” REL 


$oeweeeoeceececccoecececce$ 


~~ 


LCL 
CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
LCL SHR EXE RD NOURT NOVEC LONG 


Page faults CPU Time Elapsed Time 


T 


SE 
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VAX-11 Macro Run Statistics 
Assembler run totals 442 00:00:07.27 00:00:22.11 


Ihe forking 3 Limit was 1200 pages. 
bytes _ (52 pages) of virtual memory were used to buffer fee smeprneg rete 
fhe . were ei pages of symbol table , SPace mitt to hold 508 non-local gnd a te symbols. 
¢f source Lines were read in Pass 1 + eretys n object records in Pass 
1 pages of virtual memory were used to defi ne 940 macros. 


T POWGLU.MAR; 1 


Pere eceses cone esenremae a ecece+ 


! ; Macro library Statistics” ! 


Macro library name Macros defined 
_$255$DUA28: [SYSLIBJSTARLET.MLB; 2 gay Post Be 
562 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:OTSPOWGLU/OBJ=OBJ$:OTSPOWGLU MSRC$:OTSPOWGLU/UPDATE =(ENH$:OTSPOWGLU) 
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